-- background: 20347 from stack: in
-- bmap block id: 20708
-- flags: 0000
-- background id: 0
-- name: Student Details tabs
----- HyperTalk script -----
on openBackground
  global checkLoc1,checkLoc2,checkLoc3,checkLoc4
  global checkLoc5,checkLoc6,checkLoc7,checkLoc8
  put 1 into checkLoc1
  put 1 into checkLoc2
  put 1 into checkLoc3
  put 1 into checkLoc4
  put 1 into checkLoc5
  put 1 into checkLoc6
  put 1 into checkLoc7
  put 1 into checkLoc8
end openBackground

on doMenu menuItem
  lock screen
  if menuItem contains "About" then
    resetFields
    restoreMenuBar
    go to card "Student Details" of background "About"
    unlock screen with zoom close
  else if menuItem is "Home" then
    resetFields
    restoreMenuBar
    go home
  else if menuItem contains "Quit" then
    resetFields
    restoreMenuBar false
    go to card "Mac School® Shell"
    unlock screen with zoom close
  end if
end doMenu

on resetFields
  lock screen
  set cursor to watch
  go to first card of this background -- Personal tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  put "P" into card field "First"
  put empty into background field "Name"
  put empty into background field "Grade"
  put empty into background field "Homeroom"
  go to next card -- Contacts tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  go to next card -- Misc. tab
  set icon of button "Group One" to "Md Unchecked Box"
  set icon of button "Group Two" to "Md Unchecked Box"
  set icon of button "Group Three" to "Md Unchecked Box"
  set icon of button "Group Four" to "Md Unchecked Box"
  set icon of button "Group Five" to "Md Unchecked Box"
  set icon of button "Group Six" to "Md Unchecked Box"
  set icon of button "Group Seven" to "Md Unchecked Box"
  set icon of button "Group Eight" to "Md Unchecked Box"
  set icon of button "Group Nine" to "Md Unchecked Box"
  set icon of button "Group Ten" to "Md Unchecked Box"
  repeat with fieldNum = 1 to the number of card fields
    put "NA" into card field fieldNum
  end repeat
  go to next card -- Status tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  go to next card -- Health tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  put "No" into card field "Immunized"
  put "No" into card field "Can treat"
  go to next card -- Comments tab
  put empty into card field 1
  go to next card -- Disc. tab
  repeat with fieldNum = 1 to 7
    put empty into card field fieldNum
  end repeat
  put "None" into card field "Number"
  go to last card of this background -- User tab
  repeat with fieldNum = 1 to the number of card fields
    put empty into card field fieldNum
  end repeat
  unlock screen
end resetFields



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=22 right=43 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Personal
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    go to card short name of me
  end if
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=96 top=22 right=43 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Contacts
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
    tabKey
  end if
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=168 top=22 right=43 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Misc
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
  end if
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=212 top=22 right=43 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Status
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
    tabKey
  end if
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=270 top=22 right=43 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Health
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
    tabKey
  end if
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=326 top=22 right=43 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Comments
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
    tabKey
  end if
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=408 top=22 right=43 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD Disc
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    click at the loc of button "Infraction1"
    click at the loc of button "Teacher1"
    unlock screen
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=22 right=43 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SD User
----- HyperTalk script -----
on mouseUp
  if short name of this card is not short name of me then
    lock screen
    go to card short name of me
    put background field "Name" of first card of this background into background field "Name"
    put background field "Grade" of first card of this background into background field "Grade"
    put background field "Homeroom" of first card of this background into background field "Homeroom"
    unlock screen
    tabKey
  end if
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=437 top=285 right=308 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=437 top=312 right=335 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  lock screen
  resetfields
  pop card
  unlock screen
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=10 top=47 right=63 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 5054 / 5054
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last Student


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=35 top=47 right=63 bottom=55
-- title width / last selected line: 0
-- icon id / first selected line: 5055 / 5055
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next Student


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=55 top=47 right=65 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=336 top=47 right=65 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grade


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=453 top=47 right=65 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Homeroom